home *** CD-ROM | disk | FTP | other *** search
- object WebModule1: TWebModule1
- Actions = <
- item
- Default = True
- MethodType = mtGet
- Name = 'WebActionItem1'
- OnAction = WebModule1WebActionItem1Action
- end>
- Left = 200
- Top = 108
- Height = 150
- Width = 215
- object PageProducer1: TPageProducer
- HTMLDoc.Strings = (
-
- ' <HTML><HEAD><TITLE>Maintaining state using GET request metho' +
- 'd</TITLE></HEAD>'
- ' <BODY><H2>Thanks for your details <#fullname></H2>'
-
- ' <H3>Would you like to receive marketing information from Acm' +
- 'e Consulants Ltd?<BR><BR>'
-
- ' <A HREF="http://localhost/scripts/thankyou.dll?fullname=<#en' +
- 'cfullname>&include=Yes">Yes I certainly would</A><BR>'
-
- ' <A HREF="http://localhost/scripts/thankyou.dll?fullname=<#en' +
- 'cfullname>&include=No">No I definitely wouldn'#39't</A></H3>'
- ' </BODY></HTML>')
- OnHTMLTag = PageProducer1HTMLTag
- Left = 40
- Top = 16
- end
- end
-